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33 
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EE 
EEEPEEEEEEEEES 


ccc ca 
ca aa ca 
cc ce ca 
cc aaca 
aa eccec 
ca ca 
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@aawaacacaacadaarcaca 
@Qaaeawraacacaacacaca 
oooooooooo 
oooeooeo0o0oo 
88 
oo 
oo 
oo oo 
SSssssssss 
oooooeeeeo 
verve 
rs 
vers a 
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vere are 
— rs 
—s wae 


a er SS nS a Cor 
eS oe es 


mm MNNn 
“wn MMMM 
nn mn nw 
mm nn nw 
wn mn nn 
nn mn nw 
mm wn nn 
nn mn nw 
MWnNnm nw 
NNMMNYM wn 


33 

33 3 
$44445224<<5 
Ess 8888 


nn nMnnw 
“mn NMMM 
nn nn nw 
mn nw mn 
“nn nn “wn 
nn nw nw 
nn nn ww 
mn nn nn 
MMnNn vn 
MMMM an 
oe ee 
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a 
— 
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i 
a 
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BASSFORMAT 1-56 1984 00:32: AX=-11 Bliss-32 V4.0-74 

1 300-138 99:32:83 EBASRTL.SRe BASFORMAT 68251 
MODULE BASSFORMAT ( BASIC FORMATS function 


' Format a number b 
[DENT = "1-006" | File: BASFORMAT.BS2 EDIT :PL1006 


ie COPYRIGHT (c) 1978, 1980 


1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


[= 


3 ; 

ie 

3 5 1 

3 § 1 

; 1 Y 
; § 09 | : 
Ps * 
; 19 19 ; :; ALL RIGHTS RESERVED. * 
; : © 
$ \ \¢ 1 !* THIS SOFTWARE IS A at Ete UNDER A LICENSE AND MAY BE USED AND COPIED * 
ae 15. 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
: 14 14 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
H 18 bot9 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i 4 : TRANSFERRED. - 
; 19 $019 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
H 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
; 1 89 1 : hs CORPORATION. ® 
; ; ® 
; 2 83 4 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: : $4 : ' - SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
4 i 

: ; 0037 S nashaedieitndiehentiahteantbtesmeeininensendnestinnnenintieniinhiadaetiindaaametbimatbienatiiaies 
. ' 

: 29 0009 4 

3 0 0030 1 

; 1 0037 1 I++ 

; 4 O86 ; ; FACILITY: BASIC support Library 

; 4 005% 1 i ABSTRACT: 

; % 0036 1 | Create a ote ing by formatting a number according to the semantics of 
: 35 $4 ; : the PRINT USING statement. 

3 io 484 : ENVIRONMENT: User mode, AST Level or not or mixed 

3 41 9061 i AUTHOR: R. Will, CREATION DATE: 15-May-79 

; “$ Doss i MODIFIED BY: 

; «45 045 1! R. Will, 15-May-79: VERSION 01 

3 46 0046 1! - original 

s 64 0047 1! “005 - Always call format interpreter with destination string, RW 18-Jul-79 
:; 48 goe8 1 ! 1-003 - pags cleanup. Don't use $STR$ macros. RW 29-Oct-79 

; 49 49 1 ! 1-004 = For BASIC V2.0, enable FORMATS to be able to take any type of 

. 0050 1! elements, not just numeric. for this enhancement we need a new 

; 1 051 1! routine : BASSFORMAT_T. FM 11-JUL~-81 

; § O3¢ 1 ! 1-005 = Add entry points for’g and h floating. PL 3Sep.$1 

; i bez ! 1-006 - Add entry point for packed decimal. PLL 19-Jan-8 

; 33 55 1 '<BLF/PAGE> 


M11 
S06 1en$ep-1986 91:56:89 EBASRTLoSReSBASFORMAT.082; 1 et 
' 


SWITCHES: 


[ 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
' 


; LINKAGES: 


Wr—O0Oon 


We SY et Ao} 
uw 


VSWn—OO0Ono 


oO 
Oo 


LS 


REQUIRE "RTLIN:BASLNK'; 
! 


; TABLE OF CONTENTS: 


Get Linkage for scaling 


as 


a a a a a a ed a a at a a at sb “kt ts ot 2 as 2 


6 


using PRINT USING semantics 


BASSFORMAT_P : NOVALUE; Format a decimal number 


7 FORWARD ROUTINE 
74 BASSFORMAT_F : NOVALUE, ! Format a floating number using PRINT 
75 ! USING semantics 
7 BASSFORMAT_D : NOVALUE, ! Format a double floating number 
7 ! using PRINT USING semantics 
78 BASSFORMAT_T : NOVALUE, ! Format a string using PRINT 
79 ! USING semantics 
80 BASSFORMAT_G : NOVALUE, ' Format ag float number 
81 ! using PRINT USING semantics 
8 BASSFORMAT_H : NOVALUE, } Format an h float number 
' 
' 


using PRINT USING semantics 


; INCLUDE FILES: 


PAA ASEA AMIN INI 


BR 9 8 
~ 
SRN SSS VS AF SSSR CS SSS TVS SSS 


SPPEPSCCSCSSSSssssssessessessese 


Be Se Se Se Se Ge Se Se Ge Ge Se Se Se Se Se Se Ge Se Se Se Ge Se Fe Fe Be Ge Ss Ge Ge Se Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Ge ee Ge Se Ge Se Se oe Ge Ge Ge Se ase 


8 

84 

85 

86 

87 

88 

+4 

91 REQUIRE ‘RTILIN:RTLPSECT'; ' Declare PSECTS code 
4 REQUIRE "RTLIN:BASFRAME'; ! Define offsets in BASIC frame 
a7 ? LIBRARY *RTLSTARLE'; ! STARLET Library for macros and symbl 
95 6 ‘ 

96 6 ' MACROS: NONE 

97 6 ! 

98 6 

94 47 ‘ 

100 47 ' EQUATED SYMBOLS: NONE 

101 47 ; 

10e 47 

10 47 : 

104 4 ' PSECT DECLARATIONS 

105 6 ! 

106 7 

10 78 DECLARE_PSECTS (BAS); 

108 79 

109 0 ! 

110 1 ' OWN STORAGE: NONE 

111 § : 

116 4 

11 


oS 
= 


EXTERNAL ROUT INE 
BASSSFORMAT_INT 


} ; EXTERNAL REFERENCES: 
1 . 
1 
1 


: NOVALUE; 


1en$ep-1986 11:56:89 EBASRTLeSRESBASFORAAT. 


! BASIC format interpreter 


7382; 31 


Page 


a 


BASSFORMAT 
1006 


494 


eee 
woowo 
co 


PAEAEXEAD Many & SLEEP EAA nonponopopoponorury 


So RSS SAF Sew OS Ooe WO ASU OOO NS NFU 2 Oboe ee ee ee OOP IO Oe 
SOR WO Se AHL EO DONO NE UWI SO DONA NE UNV AO DEe ue RG 


DOQOOOCOSOSOOOCOOSOOOSOOOSCOSSOOSSOSOSOSOOOSOOCOOCOOBOCOOCOOOOOOOOOOOOOCOO 
eas tala al alah Abad adda A AAA AAD AAD AD AL AL AD AL AD AL AL AD AR AL AL Ah al vabealvalvalvab od = 


Be Se Be Se Se Se Ge Se Se Se Ge Be Be Se Ge Ge Se Se Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Ge Ge Se Se Se Se Se Fe Se SH Se Se Se Ge FH Se Se Se ee See eee 
me ee ce ee ce ee ee ee ee ee ee De ee ed ed wd dd wd wd od 


6 
6 3 
6 3 
7 4 
7 & 
? 4 
7 54 
7 bee 
54 
054 


POPOPOROPONONONONONONOPUNNONY 2 9 2 


GLOBAL ROUTINE BASSFORMAT_F ( 


B 12 
16-$ 
14 


! Format a # Like print using 


DEST_DESC, ' Pointer to dest string desc 

' Value of floating number 
FORMAT _DESC) i Pointer to format str desc 
: NOVALOE = 


+ 
FUNCTIONAL DESCRIPTION: 


Format a floating number acc 
string and the rules of PRIN 
and FORMATS are compatible, 
routine, BASSSFORMAT_INT. 


FORMAL PARAMETERS: 


ding to the format in the format 
USING. To be sure that PRINT USING 
Ll formatting will be done by one 


r 
L 


DEST _DESC.wt.dx pointer to descriptor of output 4 thas 
VALUE .rf.v value of yp ode number to be formatted 
FORMAT_DESC.rt.dx pointer to descriptor of format string 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 

SIDE EFFECTS: 
This routine may allocate a penperary dynamic eterng and may cause 
~y of STRSGET1's errors to be signalled. This routine also may 
call STRSCOPY which may signal errors. This routine also calls 


the BASIC format interpreter which may allocate space to the 
destination string. 


BEGIN 
LOCAL 


RET_TEMP; ! Not used by this routine, but required by 
! format interpreter 


MAP 
FORMAT_DESC: REF BLOCK (8, BYTE); 


MAP 
DEST_DESC: REF BLOCK (8, BYTE); 
BASSSFORMAT_INT ( ' call formatter 


VALU ' addr of value 
FORMAT_DESC (0,0,0,0), i descr of format str 


ep-1984 00:32:29 AX-11 Bliss-32 V4.0- 
=Sep-1 4 90:32:88 YBASRTL SRE BASF ORMAT 


1s 
4 
= 
E, 


12 
1B-Se0-1984 0:52:28 yayett BLise=52 v4.-742, 


: 177 47 DSCSK_DTYPE_F ' floating value 
3 178 4 DEST_BESC Fo’ 6.0 0), ' return gering 
; 12 4 RET_TEMP S; ! dummy arg 
3 181 H RETURN; 
; 188 0888 END; 'End of BASSFORMAT_F 
TITLE BASS$FORMAT 
“IDENT \1-006\ 
.EXTRN BASSSFORMAT_INT 
.PSECT _BASSCODE,NOWRT, SHR, PIC,2 
0009 000 .ENTRY BASSFORMAT_F, Save nothing 
5E eC 00 UBL2 #4, SP 
E DD 0000 PUSHL 
04 AC DD 00007 PUSHL DEST_DESC 
OA DD 0009A PUSHL #1 
0¢ AC DD 0000C USHL  FORMAT_DESC 
08 AC 9F OO00F PUSHAB U 
000000006 00 05 FB 00012 CALLS #5, BASSSFORMAT_INT 
04 00019 RET 


; Routine Size: 26 bytes, Routine Base: _BASSCODE + 0000 


Dd 12 
ASSFORMAT 16-Sep-1984 00:32: AX-11 Bliss-32 V4.0-74 Page 

a tH8 12-808= 1382 90:32:88 EBASRTL SRC IBASFORMAT.B 2;1 . a8 

; GLOBAL ROUTINE BASSFORMAT_D ( : 

DEST ! 

VALUE ! 

VALUE : 

FORMAT ! 
: NOVAL 


Format double Like print using 
Pointer to dest string desc 
Ist longword of double value 
2nd longword of double value 
Pointer to format str desc 


DESC, 


*DESC) 
OE = 


'e¢ 


i FUNCTIONAL DESCRIPTION: 


Format a double precision number according to the format in the format 
string and the rules of PRINT USING. To be sure that PRINT USING 
and FORMATS are compat ible, all formatting will be done by one 


MSW OOONOUS 


PACA OCOMMUIUIIUM 


routine, BASSSFORMAT_INT. 
FORMAL PARAMETERS: 
aaa porno eoper setae of ote strin 
FORMAT. DESC. rt.dx pointer a5 deacelocer of terect stiad 
IMPLICIT INPUTS: 
Scale for double in the callers BASIC frame 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


POPOPONUNY 2 2 ss 


- 


POPIPOPONIPINIPUPOPOPIPIPONININPoTnononofonory 


ws WAAL II MINOMONINMONININ 4 2 9 SS BQO OO OOOO DD DDD 00000000 
See eee Notun csr SO OONO NE WO Dee EAE coo Ot oe eee 


QVPV IUPUI PV LVS SULIT SUSU SUSU IS USES SISOS 


WOO OO OOOO OO09 0900 09 09 09 09 09 098 SIN NN NINN NN NOOO 


This routine calls the BASIC format interpreter which may allocate 
space to the destination string. 


ON he tee eh ed et et tt te tt ee 


BEGIN 
LOCAL 
RET_TEMP; ! Not used by this routine, but required by 
! format interpreter 


P 
FORMAT DESC: REF BLOCK C8, BYTE), 
DEST_DESC: REF BLOCK (8, BYTE); 


BASSS#ORMAT_INT ( 
FORMAT DESC [0,0,0,0), 


COOOCCOOOCOCCOCOOOCOCOSSSooooooooooCoOoOCOOCOOOOOOCOOOOOOOOOCOoOO 
HAAG AMAAUUIMUTU 


Sao 
Oooo 


call formatter 
addr of value 
descr of format str 


ta 
o 
uw 


RoPoRoRoRoPoNoNoNoNONONONONUNDNID) 2 2 2 2 tO tt 


Bop DSC$K Bry D floating value 
60 DEST Besc (0,6,0,0, return string 
443 RET_TEMP, dummy arg 
ets SBASSSCALE ); scale 


" SF ORMAT 


Be BHA wags 


ww 
o-m 


000000006 00 


Routine Size: 42 bytes, Routine Base: 


0 
a $0 i 
b2 AC DD 
0 
0 
0 


0 
8 AC 0D 
0 AC 9F 


-BASSCODE + OO1A 


OFFC 00000 
of 06 20908 
D 
Al 


ap 
13 
14 
17 
1A 
1¢ 
1F 
22 
29 


ono 


Be 99:88: 


$3 AX=11 Bliss-32 V4. 


Page 7 
BASRTL.SRC SASF ORMAT B42: 31 ’ (4) 


BASSSSCALE_L_R1 


BASSE ORMAT_ D, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 0554 
tp. EM S escs 
12¢FMP), RO ; 
om L_R1 : 
RET_TEM + 0607 
DEST. BESC : 
aii F 
FORMAT_DESC ; 
VALUE1 3; 0603. 
#6, BASSSFORMAT_INT + 0607 | 
3; 0613. 


—— 


r — 


BASSE ORMAT 


4 


PAEAEDXEMAMAMAMMNNII 


SANNA 


= 


MOMMY 


VIS SSLEAREASLSSSLSEALAV AS SAIS 


PARA AAAAAAAAAAAAA AAS 


WNWAWNAN AN ANPP NOMPNPONINYNY 2 PO 


OONAUNE WN 0 OONS NEW OOONOUS 


SESSSEE Oooco 
AAA +44 s 


0640 


MEW OO OONOUS WN — 


APAAAOOWUIM 


PRoRoPoROPONORONOMORIMOPINNONY 8 2 tt = tt tt 


GLOBAL ROUTINE BASSFORMAT_T ( 


eon 


! Format a string with print using 


DEST_DESC, ' Pointer to dest string desc 

ELEM_DESC ! Pointer to gtrine element's descriptor. 
FORMAT DESC) i Pointer to format str desc 

$ s 


ae 
FUNCTIONAL DESCRIPTION: 


Format a string orcording te the format in the forma 


string and the rules of 


t 
INT USING. To be sure that PRINT USING 


and FORMATS are compatible, all formatting will be done by one 
routine, BASSSFORMAT_INT. 


FORMAL PARAMETERS: 


DEST_DESC.wt.dx 


pointer to descriptor of output string 


ELEM_DESC.rt.dx pointer to descriptor of element passed 
FORMAT_DESC.rt.dx pointer to descriptor of format string 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 


This routine may allocate a temporary dynamic tg tee Fy may cause 
$s 


~ of STRSGET1 
call 


errors to be signalled. This routine also may 


STRSCOPY which may signal errors. This routine also calls 
the BASIC format interpreter which may allocate space to the 
destination string. 


BEGIN 


LOCAL 
RET_TEMP; 


' Not used by this routine, but required by 
! format interpreter 


MAP 
FORMAT_DESC: REF BLOCK (8, BYTE); 


MAP 
DEST_DESC: REF BLOCK (8, BYTE); 


MAP 
ELEM_DESC: REF BLOCK (8, BYTE); 


p=1984 11:56:89 EBASRTL SRE SBASFORMAT 082; 1 


ra £2 eg 19:54:89 EBAsate°SaeSaSrOnmaT 682: 1 ee 


3 03 71 were to8e INT ( ' call formatter 
3 67 ELEM_DESC (0,0,0,0] i pointer to element's desc. 
; 305 sr FORMAT pr oee (9°0'0-6), } Geser of format str 
3 BS 674 DSCSK th T ' string 
; 30 675 DEST DESC 0,6,0,03, i return string 
; 308 676 RET_TEM j; i dummy arg 
; 309 67 
; 310 378 RETURN; 
5 11 67 
; 312 680 END; 'End of BASSFORMAT_F 
0000 444i -ENTRY BASSFORMAT_T, Save nothing 3 0614) 
SE 04 C2 BOE SUBL2 #4, SP 3 
5E 0D 8308 PUSHL 3: 0675. 
04 AC ODD 00007 PUSHL ae DESC 3 
OE bp QOO0A PUSHL #14 F 
7E 08 AC D 0000C MOVQ ayer DESC, -(SP) 3 
000000006 00 0S FB 30819 CALLS @#@ BASSSFORMAT. INT : | 
04 00017 ET ; 0680. 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0044 


H 12 
ee Je=zep=} ee 90: 39:63 eth Bliss-32 V4.0-74 Page 


1 
BASRTL.SRCJBASFORMAT .B52; 1 (6 


9 

19 
; 316 681 1 GLOBAL ROUTINE BASSFORMAT_G ( ! Format g float Like print using 
s 319 § 1 DEST ee. ' Pointer to dest string desc 
3 1g 1 VALUE1, ' Ist longword of g float value 
.. 3 684 1 VALUE2, ! 2nd lLongword of g float value 
$ 18 685 1 FORMAT DESC) ! Pointer to format str desc 
3 3) 6 § 1 : NOVALOE = 
3 0 6 1 {+4 
3 1 one ! FUNCTIONAL DESCRIPTION: 
; § £50 1! Format a 4 floating number according to the format in the format 
; 4 soe otcing ang the rules of PRINT USING. To be sure that PRINS USING 
; 5 o3e 1! and FORMATS are compat ible, all formatting will be done by one 
; § o87 : routine, BASSSFORMAT_INT. 
; 8 699 1 | FORMAL PARAMETERS: 
: 330 97 13 DEST_DESC.wt.dx pointer to descriptor of output string 
; 1 98 1! VALUE .rg.v value of g float number to be formatted 
; ¢ 544 : } FORMAT_DESC.rt.dx pointer to descriptor of format string 
; 1 0701 | IMPLICIT INPUTS: 
2 en a. 
; 38 0705 | ! IMPLICIT OUTPUTS: 
Bo fed] o= 
: 34 $709 | i ROUTINE VALUE: 
: 4 0710 1 ! COMPLETION CODES: 
; 4G 0711 1! 
Ps ace on pee 
; 47 orig i SIDE EFFECTS: 
: 49 O716 77 This routine calls the BASIC format interpreter which may allocate 
3; 350 0717 1! space to the destination string. 
3 35) 0718 1! 
: 383 O70 1 
; 34 0721 BEGIN 
; 356 0758 LOCAL : 
3 (Sor gf 4 RET_TEMP; !' Not used by this routine, but required by 
3 4 ’ 5 > ' format interpreter 
; oF ; FORMAT DESC: REF BLOCK (8, BYTE), 
; 361 728 DEST_DESC: REF BLOCK (8, BYTE); 
; : 730 BASSSFORMAT_INT ( ' call formatter 
: 731 VALUE1, ' addr of value 
3 5 7 ; FORMAT DESC (0.0.0.0). ' descr of format str 
3 7 DSCSK_DTY ! g floating value 
; 7 DEST DESC (0,6,0.0. i Feturn string 
3 735 RET_TEMP, ' dummy arg 
: 8 § 0); ' scale 


> Naat 


: 


3; Routine Size: 


29 bytes, 


RETURN; 

END; !End 

see : 

5E ef 

E § 

4 AE OF 

4 AC 0D 

1B 00 

10 AC OD 

08 AC 9F 

000000006 00 06 fe 


Routine Base: _BASSCODE + 005C 


HboBeoct9Re 00:52:28 yaRedt OLieg=B2 v4n0-743, 


of BASSFORMAT_G 


5 CLRL 
PUSHAB 

A PUSHL 

00D PU 

QOOF 

borg 

001 

001C 


Heese Save nothing 
REI TEMP 
best. DESC 
FORA DESC 
#6, BASSSFORMAT_INT 


—_—_-~> 


i 12 
ASSFORMAT 1b-Se -1 :32: AX-11 Bliss-32 V4.0-74 
ot 12280871382 90:32:88 EBASRTL SRE BASF ORMAT .852;1 
75 74 GLOBAL ROUTINE BASSFORMAT_H ( ! Format h float Like print using 
7 74 DEST geese ! Pointer to goes string desc 
7 74 VALUE1, ! Ist Longword of h float value 
744 VALUE2, ! gnd longword of h float value 
745 VALUES, ! 3rd longword of h float value 
74 VALUEG, ! 4th longword of h float value 
74 FORMAT DESC) ! Pointer to format str desc 


: 400 
1; 401 
: 40 
; 40 
: 405 


: NOVALOE = 
oe 


FUNCTIONAL DESCRIPTION: 


Format an h floating number according to the format in the format 
ae the rules of PRINT USING. To be sure that PRINT USING 


7 

7 

f 

7 and FORMATS are compat tele, all formatting will be done by one 
f routine, BASSSFORMAT_INT. 

4 FORMAL PARAMETERS: 

7 DEST _DESC.wt.dx pointer to descriptor of output string 
7 Vv orh.v value of h float number to be formatted 
f FORMAT _DESC.rt.dx pointer to descriptor of format string 


PARES MIMI 


UEWN OO OOVNAUESWN—O 


SESSLS SESS CSseSSeesas ss 


] 
i 
NONE 


~ 


DEST_DESC: REF BLOCK (8, BYTE); 
BASSSFORMAT_INT ( 

VALUE 1, 

DSCSK DIVE Ae 
EST DESC fo"6.0.03, 
EMP, 


call formatter 

addr of value 

descr of format str 
h floating value 
return string 

dummy arg 


SGOSOOOCOCOOOSOCOOOOSOSOSOSOCOSOOSOSOSSOSOOOOSOCOOCOOCOOCOOOOOOOOOOOOOOOOOO 
~“ 


PRoPoRERoROPOPOPONNORMOPDNNY 2 2 2 tt 0 tt 


4 IMPLICIT INPUTS: 
76 
is 
Pet IMPLICIT OUTPUTS: 
769 NONE 
404 770 
771 ROUTINE VALUE: 
ry re COMPLETION CODES: 
40 77 
7 = 
$19 ure SIDE EFFECTS: 
$i¢ 778 This routine calls the BASIC format interpreter which may allocate 
41 779 space to the destination string. 
414 780 
rn ar 
‘i? 788 BEGIN 
418 73s LOCAL 
420 7 $ RET_TEMP; ! Not used by this routine, but required by 
; 1 At ‘ ! format interpreter 
4 : 80 FORMAT DESC: REF BLOCK (8, BYTE), 
424 90 
3s 
4 
156 
429 
4 
4 


D 
RET 


ww 
— 


K 12 Md 2 ‘ e 
rs Aa 1ea$ep-19be 17:56:89 EGASRILSSReSBASFORAAT 682; 1 tong 


; 4 ? 0); ! scale 
: O38 , 
; 4 RETURN; 
; 435 : 
; 4 2 END; !End of BASSFORMAT_H 
0000 000 -ENTRY BASSFORMAT_H, Save nothing 3 0741. 
5E 4 C2 4 SUBL2 4, SP 3 
E D4 00 CLAL -(SP) : 0796 
04 AE 9F 00007 PUSHAB RET_TEMP : 
04 AC ODD $4 PUSHL DEST_DESC F 
1C DD 000 PUSHL # : 
{8 AC DD OF PUSHL. FORMAT_DESC : 
0 AC OF 1 PUSHAB UE1 3 0792 
000000006 00 06 FB 0001 CALLS #6, BASSSFORMAT_INT : 0796 
04 0001C RET ; 0802 


; Routine Size: 29 bytes, Routine Base: _BASSCODE + 0079 


ee ee 
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rete Bliss-32 V4.0- 
(8) 


12 
1$-Sen-1964 99:3gi8g  HoXsate sae danse onmar o$2;1 


3 $38 rts 1 GLOBAL ROUTINE BASSFORMAT_P ( ! Format a # Like print using 
3; 4 06 1 DEST_DESC, ' Pointer to gest string desc 
; 440 : > VALU ! Pointer to decimal desc 
3 441 1 FORMAT_DESC) i Pointer to format str desc 
; 4 ri ! ee : NOVALOE = 

; re 609 ' FUNCTIONAL DESCRIPTION: 

: 446 a8i 13 Format a decimal number according to the format in the format 

: 467 \§ 1! string and the rules of PRINT USING. To be sure that PRINT USING 
; 448 815 1! and FORMATS are compat iele. all formatting will be done by one 

3 $33 sie } routine, BASSSFORMAT_INT. 

; 431 0816 i FORMAL PARAMETERS: 

; re 0818 1! DEST _DESC.wt.dx pointer to descriptor of output string 

3 454 0819 1! VALUE Fp. 680 pointer to descriptor of decimal number 

; rt Base ; FORMAT_DESC.rt.dx pointer to descriptor of format string 

; re 08 é 1 ' IMPLICIT INPUTS: 

; 458 08 1! 

ine Be ay oe 

: 461 0826 | i IMPLICIT OUTPUTS: 

; 46 08 1! 

: 8 0899 1 i ~_ 

: 465 0830 1 | ROUTINE VALUE: 

; 666 0831 1 ! COMPLETION CODES: 

: 467 ett z 

Boe 1 

: 470 0835 i SIDE EFFECTS: 

: 67 0837 1! This routine may allocate a temporary dynamic string and may cause 
3; 47 0838 1! any of STRSGET1"s errors to be signalled. This routine also may 

; 476 0839 1! call STRSCOPY which may signal errors. This routine also calls 

; 475 0840 1! the BASIC format interpreter which may allocate space to the 

3 47 0841 1! destination string. 

3 47 ok: 1! 

; 478 845 1 !-- 

3: 4679 0844 1 

3 rt | 0845 BEGIN 

4 ; O37 LOCAL 

3; 48 848 RET_TEMP; ' Not used by this routine, but required by 
3; 484 849 ! format interpreter 

i Be 

: 487 85¢ FORMAT_DESC: REF BLOCK (8, BYTE), 

+ 488 85 VALUE = REF BLOCK (12,BYTE); 

. on eee 

: 491 536 DEST_DESC: REF BLOCK (8, BYTE); 

: 49 0858 BASSSFORMAT_INT ( ' call formatter 

: 696 85 - VALUE, ' addr of value 


M12 
a 1eaSep-198e 11:54:59 EBASRTLOSRCSBASFORAAT. 682-1 set 


; 495 6 FORMAT DESC (0,0,0,0], ' descr of format str 
3: 4 6 DSCSK Bryre Pp ' decimal value 
> 49 6 DEST _BeESC [0,6,0,0), i return string 
: 498 6 RET_ TEMP S; i dummy arg 
3; 4 4 
3 301 65 RETURN; 
; 2 4] END; 'End of BASSFORMAT_P 
0000 00 eENTRY BASSFORMAT_P, Save nothin ; 0803. 
5E 96 C3 itt SUBL2 #4, SP ~ : : 
E DD 0000 PUSHL SP ; 0862, 
04 a DD 0000 PUSHL + A § 
1 4 OOOA PUSHL #21 3 
7E 08 AC 0000C MOva VALUE, =(SP) : | 
00000000G 00 05 FB 00010 CALLS #5, BASSSFORMAT_INT ; 
04 00017 RET ; 0867. 


; Routine Size: 24 bytes, Routine Base: _BASSCODE + 0096 


ieSeor1age 90:32:29 


'End of module 


503 869 0 ELUDON 


PSECT SUMMARY 
Name Bytes 
_BASSCODE 


Attributes 
174 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, 


Library Statistics 


eee se ee ee nm ce Symbol wwe ee eae Pages 
File Total Loaded Percent Mapped 
-$255$DUA28: CSYSLIBISTARLET.L32;1 9776 6 0 581 


COMMAND QUALIFIERS 


; Bi oes 174 code + 0 data bytes 
; 0:08.0 

; opty ttaee 0: tS 

; Lines/CPU Min: 6493 

; Lozones/CPu-Min: 18074 

; "Y Used: 53 pages 

: ova ation Complete 


= 


Ax-11 BLi fogs 32 V 
BASRTL.SRCJBASFO SRaaT 5 2:1 


fON, PIC,ALIGN(2) 


Processi 
Time “" 


00:01.0 


reer 6 | 


BLISS/CHECK@CE LELO. INET IAL .OPTIAIZE) /NOTRACE/L IS=L158:BASFORMAT/0B/90B.)8 :BASF ORMAT MSRC$: BASF ORMAT/UPDATE=(ENH$: BASF ORMAT 


o 
ar 
=> 
wn 
= 
~ 
“~ 
x 
ce 
> 
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